Unit
LMDCal

Declaration

TLMDCalendarRecord = RECORD
    GoFurther,                    { FGridPen Width }
    X,Y,                          { x,y cell of calendar which is currently selected }
    GoX,                          { size of a column  }
    GoY              : Integer;   { size of a row     }
    cols,                         { number of columns }
    lines            : Integer;   { number of rows    }
    FirstDay         : TPoint;    { first day in field number X,Y }
    FromTop,                      { top border  (bottom border is equal) }
    FromLeft         : Integer;   { left border (right border is equal) }
  End;